求VB中方程2X^2+7X—6=0的解的代码

来源：百度知道 编辑：UC知道 时间：2024/06/11 06:04:00
注意：上面^后面的2是指2次方，看精通VB程序的人尽快一展才华！

'求一元二次方程的跟2X^2+7X—6=0
Private Sub Command1_Click()
Dim a#, b#, c#, gen#
a =2
b =7
c = -6
'以下代码为解所有一元二次方程的通用形式，不要修改。
If a = 0 And b = 0 And c = 0 Then
Print "x的值是全体实数."
ElseIf a = 0 And b = 0 And c <> 0 Then
Print "x的值不存在！"
ElseIf a = 0 And b <> 0 Then
Print "x1的值是"; (-c / b)
ElseIf a <> 0 And (b ^ 2 - 4 * a * c) >= 0 Then
gen = (b ^ 2 - 4 * a * c) ^ 0.5
Print "x1的值是"; ((-b - gen) / (2 * a))
Print "x2的值是"; ((-b + gen) / (2 * a))
ElseIf a <> 0 And (b ^ 2 - 4 * a * c) < 0 Then
Print "x的值不存在！"
End If
End Sub

Sub tokey()
Dim x1, x2, deta As Single

deta = 7 ^ 2 - 4 * 2 * (-6)
If deta < 0 Then
MsgBox "此方程没有根！"
Else
x1 = (-7 + Sqr(deta)) / 2 * 2
x2 = (-7 - Sqr(deta)) / 2 * 2

'把解得的根化整
x1